#------------------读取输入数据 data-----------------------------------
source("comm\\dbconnect.r")
select<-'select * from dw.dbo.ldwu_channel_score'
data<-read.meminfo(select)

vname<-c("access_user_cnt","reg_user_cnt","effect_reg_user_cnt",
         "lost_user","old_user","order_user_cnt","super_order_user_cnt")
     
#------------------主成分分析------------------------------------------
#加载分析需要的包
library(mdatools)  

#计算主成分
data.pca<-pca(na.omit(data[,vname]),scale=T)  #scale=T,表示需要把数据标准化

#查看获取的主成分（有多少个变量就有多少个主成分）
summary(data.pca) 

data.pca$tnorm[data.pca$tnorm>1]   #特征根
data.pca$score[,data.pca$tnorm >1]  #得分

#计算主成分的综合得分(得分与特征根求内积)
data.score<-data.pca$score[,data.pca$tnorm >1]%*%data.pca$tnorm[data.pca$tnorm>1]
data$score<-data.score        #将计算的综合得分保存，变量名为defen

#------------------结果输出--------------------------------------------
#将最终结果数据保存
write.csv(data,"D:\\LDWU_COMPANY\\93.Company\\04.Fanli_Doc\\91.业务逻辑\\02.知识分享\\渠道打分模型结果.csv")